home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / IIC.PLUS.TOUR / INSIDE.STORY / INSIDE.STORY.S (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1988-04-11  |  8.8 KB  |  242 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1 I = 0:AN$ = "":J = 0:I$ = "":K = 0
  2. 4  ONERR  GOTO 10000
  3. 5  HCOLOR= 3:D$ =  CHR$(4):KS% =  -16384:KC% =  -16368:HPG% = 2000:MOVE = 4096:FT = 4113:F1 = 17:F2 = 20
  4. 10  GOSUB 155: PRINT D$"OPEN TEXT3": PRINT D$"READ TEXT3": PRINT D$: PRINT D$"BLOADp.chels2,A$4000": GOSUB 120: GOTO 1000
  5. 20  FOR Z = 0 TO 200
  6. 22  IF  PEEK(KS%) <128  THEN  NEXT Z
  7. 23  IF  PEEK(KS%) < >141  AND  PEEK(KS%) < >155  AND Z <201  THEN  POKE KC%,0: GOTO 22
  8. 24  RETURN 
  9. 30  FOR Z = 0 TO 70: NEXT Z: RETURN 
  10. 40  FOR I = 0 TO 3: GOSUB 251: GOSUB 30: GOSUB 250: GOSUB 30: NEXT I: RETURN 
  11. 45  PRINT : PRINT : GOSUB 141:TV =  PEEK(37): GOSUB 110: POKE 37,TV: PRINT :YV =  PEEK(37) *8 +4: HPLOT 0,YV TO 279,YV:ZC = ZC +1: IF ZC >3  THEN ZC = 0: PRINT  CHR$(12): HOME 
  12. 46  RETURN 
  13. 50 I = 5:J = 0:K = 0:L = 0:M = 0:I$ = "":ESC = 0: IF FL = 0  THEN FL = 245
  14. 51  PRINT AN$;:J =  LEN(AN$)
  15. 52 M =  PEEK(37):L =  PEEK(36)
  16. 53  PRINT I$;" ";
  17. 54 N = 1: IF  PEEK(37) =  PEEK(35) -1  THEN  IF L + LEN(I$) > =  PEEK(33) -3  THEN N = 0
  18. 55  POKE 36,L: VTAB M +1
  19. 56  IF  LEN(I$) = 0  THEN I$ = " "
  20. 57 I = I -1: IF I <0  THEN K = 1 -K:I = 3 +8 *  NOT K: PRINT  CHR$( ASC(I$) *  NOT K +95 *K *( ASC(I$) < >95) +32 *K *  NOT ( ASC(I$) < >95));
  21. 58  POKE 36,L: VTAB M +1
  22. 59 P =  PEEK( -16384): IF P <128  THEN 57
  23. 60 ZZ% =  FRE(0): POKE  -16368,0:K = 0:I = 0
  24. 61  IF P >159  AND P < >255  THEN  IF J + LEN(I$) <FL  THEN  IF N  THEN AN$ = AN$ + CHR$(P -128):J = J +1: PRINT  CHR$(P);: GOTO 52
  25. 62  IF P < >255  THEN 67: REM  DELETE KEY
  26. 63  IF J  THEN  PRINT " ";: POKE 36,L: POKE 1403,L: VTAB M +1: PRINT  CHR$(136);:J = J -1
  27. 64  IF J = 0  THEN AN$ = ""
  28. 65  IF J  THEN AN$ =  LEFT$(AN$,J)
  29. 66  GOTO 52
  30. 67  IF P < >136  THEN 72: REM  * BACK ARROW KEY
  31. 68  IF J  THEN  PRINT " ";: POKE 36,L: POKE 1403,L: VTAB M +1: PRINT  CHR$(136);:I$ =  RIGHT$(AN$,1) +I$:J = J -1
  32. 69  IF J = 0  THEN AN$ = ""
  33. 70  IF J  THEN AN$ =  LEFT$(AN$,J)
  34. 71  GOTO 52
  35. 72  IF P = 141  THEN AN$ = AN$ +I$: PRINT I$;" ": RETURN : REM  * RETURN KEY
  36. 73  IF P < >149  THEN 79: REM  * FORWARD ARROW KEY
  37. 74  IF   NOT  LEN(I$)  THEN 52
  38. 75 AN$ = AN$ + LEFT$(I$,1):J = J +1: PRINT  LEFT$(I$,1);
  39. 76  IF  LEN(I$) = 1  THEN I$ = ""
  40. 77  IF  LEN(I$)  THEN I$ =  RIGHT$(I$, LEN(I$) -1)
  41. 78  GOTO 52
  42. 79  IF P = 155  THEN ESCKEY = 1: PRINT : RETURN : REM  ESCAPE KEY PRESSED
  43. 80  GOTO 52
  44. 100  HTAB (W% - LEN(S$) +3)/2: PRINT S$;: RETURN 
  45. 110 D$ =  CHR$(4):TMP$ = S$: IF TC% <LM%  THEN  RETURN 
  46. 111  POKE KC%,0
  47. 112  FOR CT = 0 TO 1000
  48. 113  IF  PEEK(KS%) <128  AND CT <1001  THEN  NEXT CT
  49. 114  IF  PEEK(KS%) = 141  THEN  POKE KC%,0: VTAB T% +1: PRINT :S$ = TMP$: RETURN 
  50. 115  IF  PEEK(KS%) = 155  THEN  POKE KC%,0: PRINT D$"CLOSE": GOTO 9990
  51. 116 CT = 1001
  52. 118  VTAB 24: HTAB 15: PRINT "Press RETURN";: GOSUB 20: HTAB 15: PRINT "            ";: GOSUB 20: VTAB 19: GOTO 114
  53. 120  POKE 4013,32: POKE 4017,64: CALL 4000: RETURN 
  54. 130  POKE 4013,64: POKE 4017,32: CALL 4000: RETURN 
  55. 140  GOSUB 155
  56. 141 ZZ% =  FRE(0): PRINT D$"READ TEXT3"
  57. 142  INPUT "";TX$: IF  LEFT$(TX$,1) = "^"  THEN 148
  58. 144  IF  LEN(TX$) >39  THEN  PRINT  LEFT$(TX$,40);: GOTO 142
  59. 146  PRINT TX$: GOTO 142
  60. 148  PRINT D$:TC% = TC% +1: RETURN 
  61. 150  POKE 32,L%: POKE 33,W%: POKE 34,T%: POKE 35,B%: RETURN 
  62. 152 L% = 0:W% = 40:T% = 0:B% = 24: GOSUB 150: RETURN 
  63. 155 L% = 0:W% = 40:T% = 19:B% = 24: GOSUB 150: VTAB 19: PRINT  CHR$(12): HOME : RETURN 
  64. 160 A1% =  VAL( LEFT$(V$,3)):B1% =  VAL( MID$ (V$,5,3)):C1% =  VAL( RIGHT$(V$,3))
  65. 162 S% = 1: IF A1% >B1%  THEN S% =  -1
  66. 165  RETURN 
  67. 170  GOSUB 160: FOR V = A1% TO B1%  STEP S%: HPLOT C1%,V: NEXT V: RETURN 
  68. 180  GOSUB 160: FOR H = A1% TO B1%  STEP S%: HPLOT H,C1%: NEXT H: RETURN 
  69. 200  POKE 32,L% -1: POKE 33,W% +2: POKE 34,T% -1: POKE 35,B% +1:L1% = L% *7:R1% = (L% +W%) *7:T1% = T% *8:B1% = B% *8:XC% = L1% +(R1% -L1%)/2:YC% = T1% +(B1% -T1%)/2:I1% = (R1% -XC%)/5:I2% = (B1% -YC%)/5
  70. 210  FOR I = 1 TO 5:DX% = I *I1%:DY% = I *I2%: HPLOT XC% -DX%,YC% -DY% TO XC% +DX%,YC% -DY% TO XC% +DX%,YC% +DY% TO XC% -DX%,YC% +DY% TO XC% -DX%,YC% -DY%: NEXT I
  71. 220  VTAB T%: HTAB L%: PRINT  CHR$(12):: FOR I = 2 TO 4  STEP 2: HPLOT L1% -I,T1% -I TO R1% +I,T1% -I TO R1% +I,B1% +I TO L1% -I,B1% +I TO L1% -I,T1% -I: NEXT I: GOSUB 150: VTAB T%: HOME 
  72. 230  RETURN 
  73. 250  INVERSE : GOTO 255
  74. 251  NORMAL 
  75. 255  GOSUB 152: VTAB  VAL( LEFT$(S$,2)): HTAB  VAL( MID$ (S$,3,2)): PRINT  RIGHT$(S$, LEN(S$) -4): NORMAL : RETURN 
  76. 300  POKE FT,F2: CALL MOVE: GOSUB 140: GOSUB 110: RETURN 
  77. 310  POKE FT,F1: CALL MOVE: GOSUB 140: GOSUB 110: RETURN 
  78. 990  HOME : POKE 33,33: END 
  79. 1000  & : REM * Turn on HIRES *
  80. 1010  GOSUB 300: GOSUB 310: GOSUB 300: GOSUB 140: GOSUB 110: GOSUB 310: GOSUB 300: GOSUB 310: GOSUB 300
  81. 1200  HCOLOR= 3
  82. 1205 S$ = "1203MICROPROCESSOR": GOSUB 250
  83. 1210 V$ = "101 103 43 ": GOSUB 170:V$ = "43  16  103": GOSUB 180:V$ = "103 135 16 ": GOSUB 170:V$ = "16  31  135": GOSUB 180
  84. 1211 S$ = "1709 ROM ": GOSUB 250
  85. 1212 V$ = "31  30  121": GOSUB 180:V$ = "121 114 30 ": GOSUB 170:V$ = "30  63  114": GOSUB 180:V$ = "114 101 63 ": GOSUB 170
  86. 1214 V$ = "101 113 76 ": GOSUB 170:V$ = "76  129 113": GOSUB 180:V$ = "113 75  129": GOSUB 170:V$ = "129 130 75 ": GOSUB 180
  87. 1215  FOR J = 132 TO 142: HPLOT J,60 TO J,77: NEXT J:S$ = "1823DISK DRIVE": GOSUB 250
  88. 1216 V$ = "130 118 61 ": GOSUB 180:V$ = "61  102 118": GOSUB 170:V$ = "118 96  102": GOSUB 180:V$ = "102 101 96 ": GOSUB 170
  89. 1220  GOSUB 110
  90. 1222  GOSUB 251:S$ = "1709 ROM ": GOSUB 251:S$ = "1203MICROPROCESSOR": GOSUB 251
  91. 1225  GOSUB 155:S$ = "1123 OS ": GOSUB 40: GOSUB 140: GOSUB 110
  92. 1230  GOSUB 140: GOSUB 110
  93. 1300  GOSUB 155:S$ = "0407 RAM ": GOSUB 40: GOSUB 140: GOSUB 110
  94. 1301  INVERSE : FOR N = 0 TO 3
  95. 1302  FOR J = 142 TO 132  STEP  -1: HPLOT J,60 TO J,77: NEXT J
  96. 1303  HCOLOR= 0: IF N/2 =  INT(N/2)  THEN  HCOLOR= 3
  97. 1306  INVERSE : IF N = 3  THEN  NORMAL 
  98. 1308  VTAB 18: HTAB 23: PRINT "DISK DRIVE"
  99. 1310 V$ = "130 118 61 ": GOSUB 180:V$ = "61  102 118": GOSUB 170:V$ = "118 96  102": GOSUB 180:V$ = "102 101 96 ": GOSUB 170
  100. 1312  VTAB 12: HTAB 3: PRINT "MICROPROCESSOR":V$ = "81  64  66 ": GOSUB 170
  101. 1315  IF N/2 < > INT(N/2)  THEN 1350
  102. 1320  IF N = 2  THEN 1330
  103. 1325 S$ = "0605OPERATING": GOTO 1340
  104. 1330 S$ = "0707SYSTEM"
  105. 1340  GOSUB 250
  106. 1350  NEXT N: HCOLOR= 3
  107. 1360  GOSUB 110: GOSUB 251:S$ = "0605OPERATING": GOSUB 251
  108. 1365 S$ = "1123 OS ": GOSUB 251
  109. 1370 S$ = "0407 RAM ": GOSUB 251
  110. 1500  GOSUB 155:S$ = "1223 PROGRAM ": GOSUB 40: GOSUB 300
  111. 1505  FOR N = 0 TO 5
  112. 1506  INVERSE : IF N = 5  THEN  NORMAL 
  113. 1507  VTAB 18: HTAB 23: PRINT "DISK DRIVE": FOR J = 142 TO 132  STEP  -1: HPLOT J,60 TO J,77: NEXT J
  114. 1508  HCOLOR= 0: IF N/2 =  INT(N/2)  THEN  HCOLOR= 3
  115. 1510 V$ = "130 118 61 ": GOSUB 180:V$ = "61  102 118": GOSUB 170:V$ = "118 96  102": GOSUB 180:V$ = "102 101 96 ": GOSUB 170
  116. 1512  VTAB 12: HTAB 3: PRINT "MICROPROCESSOR":V$ = "81  64  66 ": GOSUB 170
  117. 1515  IF N/2 < > INT(N/2)  THEN 1550
  118. 1525 S$ =  LEFT$("0505 PROGRAM ",7 +3 *N/2)
  119. 1540  GOSUB 250
  120. 1550  NEXT N: HCOLOR= 3
  121. 1560  GOSUB 110: GOSUB 310: GOSUB 300: GOSUB 251:S$ = "1223 PROGRAM ": GOSUB 251
  122. 1570  GOSUB 310: GOSUB 300
  123. 4000  PRINT D$"BLOAD P.CHELS3,A$4000": GOSUB 120
  124. 4020 S$(0) = "1723OPERATING SYSTEM":S$(1) = "1403 OPERATING ":S$(2) = "1503  SYSTEM   ":S$(3) = "1623 PROGRAM ":S$(4) = "1203  PROGRAM  "
  125. 4040  FOR I = 0 TO 4:S$ = S$(I): GOSUB 251: NEXT I
  126. 4050  HPLOT 10,100 TO 94,100: HPLOT 10,84 TO 94,84
  127. 4080  GOSUB 140: GOSUB 110
  128. 4500  GOSUB 310: GOSUB 155: GOSUB 130: POKE FT,F2: CALL MOVE: GOSUB 140
  129. 4520 L% = 18:W% = 19:T% = 7:B% = 16: GOSUB 200: HPLOT 125,67 TO 260,67
  130. 4540  INVERSE : PRINT " What is your name?":T% = T% +2: GOSUB 150
  131. 4550  NORMAL 
  132. 4560  HOME : GOSUB 50: IF ESCKEY  THEN  PRINT D$"CLOSE": GOTO 9990
  133. 4565  IF  LEN(AN$) >1  THEN NAME$ = AN$: GOTO 4660
  134. 4580  IF NC% <2  THEN AN$ = "": PRINT : PRINT : PRINT "Please type your": PRINT "name and press": PRINT "RETURN.":NC% = NC% +1: GOTO 4560
  135. 4600  PRINT  CHR$(12): HOME : PRINT : PRINT : PRINT 
  136. 4620  PRINT "I'll type a name": PRINT "for you.":NAME$ = " Lance ": GOSUB 20
  137. 4640  PRINT  CHR$(12);: HOME : FOR I = 1 TO  LEN(NAME$): PRINT  MID$ (NAME$,I,1);:Z =  PEEK( -16336) + PEEK( -16336): FOR Z = 1 TO 50: NEXT Z,I
  138. 4660 V$ = "121 110 75 ": GOSUB 180:V$ = "75  20  110": GOSUB 170:V$ = "110 95  20 ": GOSUB 180
  139. 4680  HPLOT 99,17 TO 96,20: HPLOT 99,23 TO 96,20
  140. 4700  IF  LEN(NAME$) >76  THEN NAME$ =  LEFT$(NAME$,76)
  141. 4720 L% = 2:W% = 11:T% = 2:B% = 10: GOSUB 150: HOME : PRINT NAME$;
  142. 4740  NORMAL 
  143. 4750 ZZ% =  FRE(0)
  144. 4760  GOSUB 140: GOSUB 110
  145. 4780  GOSUB 120:L% = 2:W% = 11:T% = 2:B% = 10: GOSUB 150: HOME : PRINT NAME$
  146. 4810  GOSUB 310: GOSUB 300: GOSUB 140: GOSUB 110: GOSUB 310: GOSUB 300: FOR I = 1 TO 5: GOSUB 140: GOSUB 110: NEXT I
  147. 4880 L% = 2:W% = 11:T% = 2:B% = 10: GOSUB 150: HOME : INVERSE : PRINT NAME$
  148. 4900 V$ = "95  138 20 ": GOSUB 180:V$ = "20  108 138": GOSUB 170:V$ = "138 149 108": GOSUB 180
  149. 4920  HPLOT 145,105 TO 148,108: HPLOT 145,111 TO 148,108
  150. 4940 S$ = "1424MY.NAME": GOSUB 40
  151. 4960  GOSUB 310
  152. 4980  GOSUB 251:L% = 2:W% = 11:T% = 2:B% = 10: GOSUB 150: HOME : PRINT NAME$
  153. 4990  GOSUB 300: GOSUB 140: GOSUB 110: GOSUB 140: GOSUB 110
  154. 5005  PRINT D$"BLOAD P.CHELS3,A$4000": GOSUB 120:S$ = "1424MY.NAME": GOSUB 251
  155. 5007 S$(0) = "1723OPERATING SYSTEM":S$(1) = "1403 OPERATING ":S$(2) = "1503  SYSTEM   ":S$(3) = "1623 PROGRAM ":S$(4) = "1203  PROGRAM  "
  156. 5010 S$ = S$(0): GOSUB 251:S$ = S$(3): GOSUB 251
  157. 5015  GOSUB 310: GOSUB 300
  158. 5025 S$ = S$(0): GOSUB 40
  159. 5030  FOR I = 0 TO 4
  160. 5035  HCOLOR= 0: IF I/2 =  INT(I/2)  THEN  HCOLOR= 3
  161. 5040 V$ = "149 122 132": GOSUB 180:V$ = "132 108 122": GOSUB 170:V$ = "122 95  108": GOSUB 180
  162. 5045  IF I = 0  THEN S$ = S$(1): GOSUB 250
  163. 5050  IF I = 2  THEN S$ = S$(2): GOSUB 250
  164. 5055  NEXT I
  165. 5060  HPLOT 99,111 TO 96,108: HPLOT 99,105 TO 96,108
  166. 5065  HPLOT 10,100 TO 94,100
  167. 5070 S$ = S$(3): GOSUB 40
  168. 5075  FOR I = 0 TO 2
  169. 5080  HCOLOR= 0: IF I/2 =  INT(I/2)  THEN  HCOLOR= 3
  170. 5085 V$ = "149 130 124": GOSUB 180:V$ = "124 92  130": GOSUB 170:V$ = "130 95  92 ": GOSUB 180
  171. 5090  IF I = 0  THEN S$ = S$(4): GOSUB 250
  172. 5095  NEXT I
  173. 5100  HPLOT 99,95 TO 96,92: HPLOT 99,89 TO 96,92
  174. 5105  HPLOT 10,84 TO 94,84
  175. 5110  GOSUB 140: GOSUB 110
  176. 5115  FOR I = 0 TO 4:S$ = S$(I): GOSUB 251: NEXT I
  177. 5120 ZZ% =  FRE(0)
  178. 5200  GOSUB 310: GOSUB 300: GOSUB 140: GOSUB 110
  179. 5212 S$ = "1424MY.NAME": GOSUB 40
  180. 5220 V$ = "149 138 108": GOSUB 180:V$ = "108 20  138": GOSUB 170:V$ = "138 95  20 ": GOSUB 180: HPLOT 99,17 TO 96,20: HPLOT 99,23 TO 96,20
  181. 5224  INVERSE :L% = 2:W% = 11:T% = 2:B% = 10: GOSUB 150: HOME : PRINT NAME$;: NORMAL 
  182. 5228  GOSUB 152: GOSUB 110:L% = 2:W% = 11:T% = 2:B% = 10: GOSUB 150: HOME : PRINT NAME$;: GOSUB 152: GOSUB 251
  183. 5232  HCOLOR= 0:V$ = "149 138 108": GOSUB 180:V$ = "108 20  138": GOSUB 170:V$ = "138 95  20 ": GOSUB 180: HPLOT 99,17 TO 96,20: HPLOT 99,23 TO 96,20: HCOLOR= 3
  184. 5236  GOSUB 140: GOSUB 110
  185. 5240  GOSUB 155: GOSUB 130: GOSUB 140:NC% = 0
  186. 5244 L% = 18:W% = 19:T% = 7:B% = 16: GOSUB 200: HPLOT 125,67 TO 260,67
  187. 5248  INVERSE : PRINT " Type the new name:":T% = T% +2: GOSUB 150
  188. 5250 AN$ = "": NORMAL 
  189. 5252  HOME : GOSUB 50: IF ESCKEY  THEN  PRINT D$"CLOSE": GOTO 9990
  190. 5256  IF  LEN(AN$) >1  THEN NAME$ = AN$: GOTO 5276
  191. 5260  IF NC% <2  THEN AN$ = "": PRINT : PRINT : PRINT "Please type the new name and press": PRINT "RETURN.":NC% = NC% +1: GOTO 5252
  192. 5264  PRINT  CHR$(12): HOME : PRINT : PRINT : PRINT 
  193. 5268  PRINT "I'll type a name": PRINT "for you.":NAME$ = " Lance Guy Saleme ": GOSUB 20
  194. 5272  PRINT  CHR$(12);: HOME : FOR I = 1 TO  LEN(NAME$): PRINT  MID$ (NAME$,I,1);:Z =  PEEK( -16336) + PEEK( -16336): FOR Z = 1 TO 50: NEXT Z,I
  195. 5276 V$ = "121 110 75 ": GOSUB 180:V$ = "75  20  110": GOSUB 170:V$ = "110 95  20 ": GOSUB 180
  196. 5280  HPLOT 99,17 TO 96,20: HPLOT 99,23 TO 96,20
  197. 5284  IF  LEN(NAME$) >78  THEN NAME$ =  LEFT$(NAME$,78)
  198. 5288 L% = 2:W% = 11:T% = 2:B% = 10: GOSUB 150: PRINT  CHR$(12): HOME : PRINT NAME$;
  199. 5292  GOSUB 310
  200. 5296  GOSUB 120:L% = 2:W% = 11:T% = 2:B% = 10: GOSUB 150: PRINT  CHR$(12): HOME : PRINT NAME$;
  201. 5300  GOSUB 152: VTAB 1: PRINT 
  202. 5304  NORMAL 
  203. 5308  GOSUB 300
  204. 5312 ZZ% =  FRE(0)
  205. 5500  GOSUB 310: POKE FT,F2: CALL MOVE: GOSUB 130
  206. 5520 V$ = "95  138 20 ": GOSUB 180:V$ = "20  108 138": GOSUB 170:V$ = "138 149 108": GOSUB 180: HPLOT 145,105 TO 148,108: HPLOT 145,111 TO 148,108
  207. 5540 S$ = "1424MY.NAME": GOSUB 40: GOSUB 110
  208. 5560  GOSUB 120: GOSUB 300: GOSUB 140: GOSUB 110
  209. 5580 V$ = "95  138 20 ": GOSUB 180:V$ = "20  116 138": GOSUB 170:V$ = "138 149 116": GOSUB 180: HPLOT 145,113 TO 148,116: HPLOT 145,119 TO 148,116
  210. 5600 S$ = "1524MY.NAME2": GOSUB 40: GOSUB 110
  211. 5620  GOSUB 251:L% = 2:W% = 11:T% = 2:B% = 10: GOSUB 150: HOME : PRINT NAME$;
  212. 5630 ZZ% =  FRE(0)
  213. 5640  GOSUB 140: GOSUB 110
  214. 5710  GOSUB 152: PRINT  CHR$(12): HOME :ZC = 0
  215. 5720  GOSUB 45: POKE FT,F1: CALL MOVE: GOSUB 45: POKE FT,F2: CALL MOVE: FOR I = 1 TO 3: GOSUB 45: NEXT I
  216. 5730  POKE FT,F1: CALL MOVE: GOSUB 45: POKE FT,F2: CALL MOVE: GOSUB 45: POKE FT,F1: CALL MOVE: GOSUB 45: GOSUB 45
  217. 5740  POKE FT,F2: CALL MOVE: GOSUB 45
  218. 5900  GOSUB 140: POKE 794,1:ZZ% =  FRE(0): GOSUB 110
  219. 9980  GOSUB 152: HOME : PRINT D$"CLOSE": TEXT : VTAB 12:S$ = "Just a moment please...": GOSUB 100: PRINT : PRINT D$"-TRIVIA.GAME": END 
  220. 9990  GOSUB 152: HOME : TEXT : VTAB 12:S$ = "Just a moment please....": GOSUB 100: PRINT : PRINT  CHR$(4)"-MENU"
  221. 10000 ERR% =  PEEK(222):LINE% =  PEEK(218) + PEEK(219) *256
  222. 10005  IF ERR% = 255  THEN  RESUME 
  223. 10010  GOSUB 152: HOME : PRINT CL$: TEXT : HOME : PRINT D$"CLOSE": VTAB 5: PRINT "An ERROR has occurred in this program.": PRINT 
  224. 10100  IF ERR% < >6  THEN 10200
  225. 10105  IF LINE% < >9980  THEN 10210
  226. 10110  PRINT "The next program to be executed was not": PRINT "found on the diskette in the drive.": GOTO 10220
  227. 10200  IF ERR% < >8  THEN 10900
  228. 10210  PRINT "There appears to be a problem with the": PRINT "diskette in the disk drive."
  229. 10220  PRINT : PRINT "Make sure you have the correct diskette": PRINT "(Your Tour of the Apple II) in the disk": PRINT "drive.": GOTO 11000
  230. 10900  PRINT "The error does not seem to be one that": PRINT "this program knows about.  Please note": PRINT "the error number and line number listed": PRINT "below and report it to your dealer."
  231. 10910  PRINT : PRINT "Error Number = "ERR%: PRINT "Line Number  = "LINE%
  232. 10920  PRINT : PRINT "Please put another program diskette in": PRINT "the disk drive.  When you have done": PRINT "this press RETURN to continue."
  233. 10930  GOSUB 110: PRINT : PRINT D$"PR#5"
  234. 11000  PRINT : PRINT "Press RETURN to continue."
  235. 11010  IF  PEEK(KS%) < >141  THEN 11010
  236. 11020  POKE (KC%),0:EC% = EC% +1: IF EC% >2  THEN 11900
  237. 11030  IF LINE% = 9990  THEN 9990
  238. 11040  IF LINE% = 9980  THEN 9980
  239. 11050  IF ERR% = 8  OR ERR% = 6  THEN  RUN 
  240. 11900  HOME : GOTO 10900
  241. 32998  REM <CTRL-0x0a><CTRL-0x0a>* BY: LANCE G. SALEME
  242. 32999  REM * COPYRIGHT 1984, 1986, 1988 APPLE COMPUTER, INC. *